From 69268c787fedcfd95955c06e655ed10bb519a978 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Sat, 22 May 1993 22:33:19 +0000 Subject: [PATCH] (vc-comment-to-change-log): Don't take FILE argument, since vc-update-change-log doesn't support it anyway. Don't bind default-directory. Instead pass second arg to file-relative-name. (vc-update-change-log): Use find-change-log instead of hardcoding. --- lisp/vc.el | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 605c68a5fd2..9fb699d9d03 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1,6 +1,6 @@ ;;; vc.el --- drive a version-control system from within Emacs -;; Copyright (C) 1992 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993 Free Software Foundation, Inc. ;; Author: Eric S. Raymond ;; Version: 5.4 @@ -586,17 +586,15 @@ popped up to accept a comment." ;;; Here is a checkin hook that may prove useful to sites using the ;;; ChangeLog facility supported by Emacs. -(defun vc-comment-to-change-log (&optional file) +(defun vc-comment-to-change-log () "Update change log from VC change comments entered for the current file. -Optional FILE specifies the change log file name; see `find-change-log'. See `vc-update-change-log'." (interactive) - (let ((log (find-change-log file))) + (let ((log (find-change-log))) (if log - (let ((default-directory (or (file-name-directory log) - default-directory))) - (vc-update-change-log - (file-relative-name buffer-file-name)))))) + (vc-update-change-log + (file-relative-name buffer-file-name + (file-name-directory (expand-file-name log))))))) (defun vc-finish-logentry (&optional nocomment) "Complete the operation implied by the current log entry." @@ -1126,7 +1124,7 @@ From a program, any arguments are passed to the `rcs2log' script." (setq files (cons (file-relative-name file) files))) (setq buffers (cdr buffers))) files)))) - (find-file-other-window "ChangeLog") + (find-file-other-window (find-change-log)) (barf-if-buffer-read-only) (vc-buffer-sync) (undo-boundary) -- 2.30.2